home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / fido / SHELTER275.lha / rexx / CheckCache.rexx < prev    next >
OS/2 REXX Batch file  |  1995-01-10  |  2KB  |  61 lines
  1. /**/
  2. v='$VER: CheckCache Rexx Check Cache Phone Numbers for a Site Williamson 55.01'
  3. options results
  4.  
  5. parse upper arg args
  6. port=""
  7. site=""
  8. template="Port/A,Site/A"
  9. if ~ReadArgs(args,template) then do
  10.     say "    "Fault(RC,'CheckCache')
  11.     say '    Usage:     Rx CheckCache 'template
  12.     say '    Where Port is 'GetClip(SHELTER)'<line>'
  13.     say '    and Site is a Cache.cfg <node> entry'
  14.     say '    Displays cache and nodelist phone number'
  15.     exit 0
  16. end;else do
  17.     port=upper(port)
  18.     if ~Show('p',port) then do
  19.         say '    Cannot find port' port
  20.         exit 0
  21.     end
  22. end
  23. lookup=GetClip('LOOKUP')||" >NIL: "
  24. nlentry="nl"||Pragma('ID')
  25.  
  26.     check_number(site)
  27. exit
  28.  
  29. check_number:
  30.     cmd=lookup site 'nodelist:' nlentry
  31.     address COMMAND cmd
  32.     nlnumber=GetVar(nlentry'.number',"G")
  33.     if nlnumber="" then do;say site 'is not in nodelist';exit;end
  34.     else nlnumber=compress(nlnumber,'-')
  35.     si=get_string('si.'site)
  36.     if si="" then do;say site 'is not in cache';exit;end
  37.     numbers=get_string('numbers.'si)
  38.     inl=0
  39.     do i=1 to numbers
  40.         number=get_string(si'.'i)
  41.         if nlnumber=number then do
  42.             say 'Cache:'number' Nodelist:'nlnumber
  43.             inl=1
  44.         end;else say 'Cache:'number
  45.     end
  46.     if ~inl then say 'Nodelisted number 'nlnumber' is not in Cache'
  47. return 0
  48.  
  49. get_string:    
  50.     Address value port
  51.     'String $('arg(1)')'
  52.     if RESULT="RESULT" then RESULT = ""
  53. Return RESULT
  54.  
  55. ReadVar:
  56.     if ~open('v','ENV:'arg(1),'r') then return ""
  57.     x=readln('v')
  58.     call close('v')
  59. return x
  60.  
  61.